home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / Z-Misc Series / (k)zn.d64 / proc.file'graph < prev    next >
Text File  |  2007-03-01  |  467b  |  15 lines
  1. 0010 ╨╥╧├ FILE'GRAPH(╥┼╞ VALUES(,),╥┼╞ SCALE(,),╥┼╞ LABELS$(),FILENAME$) ├╠╧╙┼─
  2. 0020   ╧╨┼╬ ╞╔╠┼ 2,"@0:GR."+FILENAME$,╫╥╔╘┼
  3. 0030   ╞╧╥ I:=0 ╘╧ VALUES(0,1) ─╧
  4. 0040     ╨╥╔╬╘ ╞╔╠┼ 2: VALUES(I,1)
  5. 0050     ╨╥╔╬╘ ╞╔╠┼ 2: VALUES(I,2)
  6. 0060   ┼╬─╞╧╥ I
  7. 0070   ╞╧╥ I:=0 ╘╧ 2 ─╧ ╨╥╔╬╘ ╞╔╠┼ 2: LABELS$(I)
  8. 0080   ╞╧╥ ITEMS:=1 ╘╧ 3 ─╧
  9. 0090     ╨╥╔╬╘ ╞╔╠┼ 2: SCALE(ITEMS,1)
  10. 0100     ╨╥╔╬╘ ╞╔╠┼ 2: SCALE(ITEMS,2)
  11. 0110   ┼╬─╞╧╥ ITEMS
  12. 0120   ├╠╧╙┼ ╞╔╠┼ 2
  13. 0130 ┼╬─╨╥╧├ FILE'GRAPH
  14. 0140 
  15.